(dired-build-subdir-alist): Don't let looking-at destroy the match data.

diff --git a/lisp/dired.el b/lisp/dired.el
index 286e7d10dbdf1a3de529557654f7b78d3309d733..e81a34f073eff7eefcd398ebac314c2aec878d53 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1368,7 +1368,7 @@ Returns the new value of the alist."
                         (goto-char (match-beginning 0))
                         (beginning-of-line)
                         (forward-char 2)
-                        (looking-at dired-re-perms))))
+                        (save-match-data (looking-at dired-re-perms)))))
        (save-excursion
          (goto-char (match-beginning 1))
          (setq new-dir-name